home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c13.d64 / 1.Nova9.4.sfx / boot 9.4 (.txt) < prev    next >
Commodore BASIC  |  1990-02-12  |  595b  |  17 lines
  1. 10 IFMRTHEN100
  2. 15 IFPEEK(6)=255THENPOKE45,PEEK(174):POKE46,PEEK(175):CLR
  3. 20 DV=PEEK(186):IFDV<8ORDV>16THENDV=8
  4. 30 OPEN15,DV,15:V$="9.4":PRINT"[147]":IFPEEK(648)=4THENPRINT"";
  5. 40 R=57088:A=1:FORI=2TO5:POKER+I,I:NEXT:FORI=2TO5:IFPEEK(R+I)<>ITHENA=0
  6. 50 NEXT:IFA=0THENPOKE1023,0:GOTO120
  7. 55 IFPEEK(1023)>=8ANDPEEK(1023)<=16THENU=PEEK(1023):GOTO110
  8. 56 IFPEEK(817)=207THENU=PEEK(52997):GOTO110
  9. 60 U=0:FORI=15TO8STEP-1:OPEN14,I,15:CLOSE14:IF128ANDSTTHENU=I:I=8
  10. 70 NEXT:IFU=0THENU=30
  11. 80 MR=25344
  12. 90 SYS65418:PRINT"[204]OADING [210][193][205][196][207][211]...":LOAD"RAMDOS64.BIN*",DV,1
  13. 100 SYSMR+12:POKE780,U:POKE781,207:SYSMR+6-3*(PEEK(1023)>0)
  14. 110 PRINT"[210][193][205]DISK INSTALLED AS DEVICE"U:POKE1023,U
  15. 120 REM OPEN5,2,0,CHR$(6):PRINT#5,"AT&C1"
  16. 130 PRINT"[204]OADING [206]OVATERM "V$"!":LOAD"NOVATERM "+V$,DV
  17.